home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / dired / dired-num.el < prev    next >
Encoding:
Text File  |  1994-09-20  |  4.3 KB  |  124 lines
  1. ;;;; dired-num.el - Renaming with numbers in Tree Dired.
  2.  
  3. (defconst dired-num-version (substring "!Revision: 1.2 !" 11 -2)
  4.   "Id: dired-num.el,v 1.2 1991/10/15 13:24:10 sk RelBeta ")
  5.   
  6. ;; Copyright (C) 1991 by Sebastian Kremer <sk@thp.uni-koeln.de>
  7.  
  8. ;; This program is free software; you can redistribute it and/or modify
  9. ;; it under the terms of the GNU General Public License as published by
  10. ;; the Free Software Foundation; either version 1, or (at your option)
  11. ;; any later version.
  12. ;;
  13. ;; This program is distributed in the hope that it will be useful,
  14. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. ;; GNU General Public License for more details.
  17. ;;
  18. ;; You should have received a copy of the GNU General Public License
  19. ;; along with this program; if not, write to the Free Software
  20. ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  
  22. ;; LISPDIR ENTRY for the Elisp Archive ===============================
  23. ;;    LCD Archive Entry:
  24. ;;    dired-num|Sebastian Kremer|sk@thp.uni-koeln.de
  25. ;;    |Renaming with numbers in Tree Dired. 
  26. ;;    |Date: 1991/10/15 13:24:10 |Revision: 1.2 |
  27.  
  28. ;; INSTALLATION ======================================================
  29. ;; 
  30. ;; Put this file into your load-path and the following in your ~/.emacs:
  31. ;; 
  32. ;;   (autoload 'dired-do-rename-numeric "dired-num")
  33. ;;   (autoload 'dired-do-rename-list "dired-num")
  34. ;;
  35. ;; Do
  36. ;; 
  37. ;;   (define-key dired-mode-map "%#" 'dired-do-rename-numeric)
  38. ;;   (define-key dired-mode-map "%(" 'dired-do-rename-list)
  39. ;;
  40. ;; inside your dired-load-hook.
  41.  
  42. (require 'dired);; we need its macros when being compiled
  43.  
  44. (defun dired-number-of-marked-files (&optional arg)
  45.   ;; Return the number of marked files in a dired buffer.
  46.   ;; Optional ARG as in dired-mark-map.
  47.   (length
  48.    (save-excursion
  49.      ;; this returns a list of ``results'' (i.e. nil's):
  50.      (dired-mark-map nil arg))))
  51.  
  52. (defun dired-do-create-files-numeric (file-creator operation arg format start
  53.                            &optional arg)
  54.   ;; Create a new file for each marked file using numbers.
  55.   ;; FILE-CREATOR and OPERATION as in dired-create-files.
  56.   ;; ARG as in dired-mark-get-files.
  57.   ;; FORMAT is a format string for use with an integer, assuming
  58.   ;; values starting from START, incremented for each marked file.
  59.   (let ((i (1- start)));; signals an error if START is not a number
  60.     (dired-create-files-non-directory
  61.      file-creator
  62.      (function (lambda (x)
  63.          (format format (setq i (1+ i)))))
  64.      operation arg)))
  65.  
  66. ;;;###autoload
  67. (defun dired-do-rename-numeric (format start &optional arg)
  68.   "Rename all marked (or next ARG) files using numbers.
  69. You are prompted for a format string, e.g \"part_%d_of_8\", and a starting
  70. number, e.g. 1.  If there are 8 marked files, this example will rename them to
  71.  
  72.     part_1_of_8
  73.     part_2_of_8
  74.     ...
  75.     part_8_of_8"
  76.   (interactive
  77.    (list
  78.     (read-string
  79.      (format "Rename numeric [%d files] (format string using %%d): "
  80.          (dired-number-of-marked-files current-prefix-arg)))
  81.     (read-minibuffer "Numbers start at: " "1")
  82.     current-prefix-arg))
  83.   (dired-do-create-files-numeric
  84.    (function dired-rename-file)
  85.    "Rename-numeric" arg format start))
  86.  
  87. ;; Copy etc. would be similar to implement.
  88.  
  89.  
  90. (defun dired-do-create-files-list (file-creator operation arg format list
  91.                            &optional arg)
  92.   ;; Create a new file for each marked file by subsituting elements
  93.   ;; from LIST in the format string FORMAT.
  94.   ;; FILE-CREATOR and OPERATION as in dired-create-files.
  95.   ;; ARG as in dired-mark-get-files.
  96.   (let ((rest list))
  97.     (dired-create-files-non-directory
  98.      file-creator
  99.      (function (lambda (x)
  100.          (format format (prog1
  101.                     (car rest)
  102.                   (setq rest (cdr rest))))))
  103.      operation arg)))
  104.  
  105. ;;;###autoload
  106. (defun dired-do-rename-list (format list &optional arg)
  107.   "Rename all marked (or next ARG) files using elements from LIST.
  108. You are prompted for a format string, e.g \"x_%s\", and the list,
  109. e.g. '(foo bar zod).  This example will rename the marked files to
  110.  
  111.     x_foo
  112.     x_bar
  113.     x_zod
  114.  
  115. It is an error if LIST has not as many elements as there are files."
  116.   (interactive "sRename list (format using %%s): \nxList: \nP")
  117.   (or (= (dired-number-of-marked-files arg)
  118.      (length list))
  119.       (error "Must have as many elements as there are files to rename"))
  120.   (dired-do-create-files-list
  121.    (function dired-rename-file)
  122.    "Rename-list" arg format list))
  123.  
  124.